The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_1/tvm

Text File | 1995-03-31 | 3KB | 162 lines

Article 352 of comp.sys.handhelds:
From: [e-mail] (Pierre Racz)
Newsgroups: comp.sys.handhelds
Subject: HP48 Tool box : Engineering Economy
Message-ID: <[e-mail]>
Date: 23 May 90 15:40:22 GMT
Sender: [e-mail] (Usenet File Owner)
Reply-To: [e-mail] (Pierre Racz)
Organization: Electrical Engineering McGill University
Lines: 148

%%HP: T(3)A(R)F(.);
@   Name      : ECON - Engineering Economy Tools
@   Author    : Pierre Racz
@   Email     : pierrer <at> pike.ee.mcgill.ca
@   Date      : 90-04-29
@   Release   : 1.0
@
@   Checksum  : # CE47h
@   Bytes     : 900.0
@
@   Descrip   :
@        This file contains a directory hierarchy for time-value-of-money
@        computations.  The main directory holds the TVM functions,
@        custom menu initialization and a DATA subdirectory where
@        the computations should be performed.
@
@        The following functions have been implemented:
@
@        F<-P    Future given present.
@        P<-A    Present given annuity.
@        F<-A    Future given annuity.
@        P<-G    Present given gradient.
@        F<-G    Future given gradient.
@        A<-G    Annuity given gradient.
@        P<-C    Present given Constant rate of change.
@        PRINC    Principal remaining on loan.
@        EIR    Effective interest rate.
@        NIR    Nominal interest rate.
@
DIR
@
@   Time Value of Money functions.
@
@
  DATA                    @ Empty directory for YOUR data.
    DIR
    END
@
@   ----
@   Custom menu
@
  CST { F\<-P P\<-A F\<-A P\<-G F\<-G A\<-G P\<-C PRINC EIR NIR }
@
@   ----
@   Future given Present.
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-P
    \<< \-> i n '(1+i)^n'
    \>>
@
@   ----
@   Present given Annuity
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  P\<-A
    \<< \-> i n 'F\<-A(i,n)/F\<-P(i,n)'
    \>>
@
@   ----
@   Future given Annuity
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-A
    \<< \-> i n '((1+i)^n-1)/i'
    \>>
@
@   ----
@   Present given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  P\<-G
    \<< \-> i n 'P\<-A(i,
n)*A\<-G(i,n)'
    \>>
@
@   ----
@   Future given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-G
    \<< \-> i n 'F\<-A(i,n)*A\<-G(i,n)'
    \>>
@
@   ----
@   Annuity given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  A\<-G
    \<< \-> i n '1/i-n/((1+i)^n-1)'
    \>>
@
@   ----
@   Principal remaining on loan.
@
@   i : Interest rate per period.
@   n : Number of periods into loan.
@   N : Number of periods before payback of loan.
@
  PRINC
    \<< \-> i n N 'F\<-P(i,n)-P\<-C(0,i,n)/P\<-A(i,N)'
    \>>
@
@   ----
@   Effective Interest Rate.
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  EIR
    \<< \-> i n '(1+i/n)^n-1'
    \>>
@
@   ----
@   Nominal Interest Rate
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  NIR
    \<< \-> i n 'n*((1+i)^(1/n)-1)'
    \>>
@
@   ----
@   Present Given Changing Annuity
@
@   i : Interest rate per period.
@   k : Rate at which receipts increase.
@   n : Number of periods.
@
  P\<-C
    \<< \-> i k n '(1-((1+k)/(1+i))^n)/(i-k)'
    \>>
END
@
@